home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8411.d64
/
list 6 (dump)
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
552b
|
15 lines
50 REM ********************************
51 REM * D U M P *
52 REM ********************************
53 REM * BERICHTIGUNG DES *
54 REM * SIMON'S BASIC-BEFEHLS dL *
55 REM ********************************
59 K=0:PRINT" D U M P [146] ?CHECKSUM ";
60 FOR I=$9F9C TO $9FA7:READ J:POKE I,J:K=K+J:NEXT
61 DATA 160,4,32,57,160,136,208,250,234
62 DATA 234,234,234:POKE $80B9,221:POKE $808C,68
63 POKE $9FD6,240:POKE $9FD7,27:POKE $9FD8,200
64 FOR I=$9FF0 TO $9FFC:READ J:POKE I,J:K=K+J:NEXT
65 DATA 160,4,44,160,5,169,34,32,210,255,76,158,159
66 IFK=3409THENPRINT"OK":dG:PRINT"ERROR